home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 35 / 035.d81 / grassroots jukeb (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  3.1 KB  |  138 lines
  1. 0 ifdl=0thenprint"[147][144]  welcome to the grassroots jukebox..."
  2. 1 ifdl=0thendl=1:poke808,234:load"basic player",8,1
  3. 2 ifdl=1thendl=2:load"w.bluegrass",8,1
  4. 3 ifs%=3then550
  5. 4 ifs%=4then3040
  6. 8 poke53281,1:poke53280,7
  7. 9 ns=8
  8. 10 print"[147]"chr$(142)
  9. 20 print"                             "
  10. 30 print"           loadstar presents [144] "
  11. 40 print"                             [144] "
  12. 50 print"                              "
  13. 60 print"[160]"
  14. 70 print"[160]"
  15. 80 print
  16. 90 print
  17. 100 print"                                   "
  18. 110 print"          grassroots jukebox       [144] "
  19. 120 print"                                   [144] "
  20. 130 print"        written by james weiler    [144] "
  21. 140 print"                                   [144] "
  22. 150 print"                                    "
  23. 160 print
  24. 170 print"                           "
  25. 180 print"            copyright 1987 [144] "
  26. 190 print"                           [144] "
  27. 200 print"                            "
  28. 210 print
  29. 220 print"     loadstar is not public domain"
  30. 230 print"  please respect the author's rights"
  31. 240 print
  32. 245 forx=1tons:reada$(x),b$(x):next
  33. 250 print"             press any key";
  34. 260 print"";
  35. 270 poke198,0:wait198,1:poke198,0
  36. 300 print"[147]"
  37. 310 print"                                   "
  38. 320 print"          grassroots jukebox       [144] "
  39. 330 print"                                   [144] "
  40. 340 print"        written by james weiler    [144] "
  41. 350 print"                                   [144] "
  42. 360 print"                                    "
  43. 370 print
  44. 380 print
  45. 390 printspc(5)"use cursor keys or joystick to"
  46. 392 printspc(11)"scroll highlight."
  47. 393 printspc(5)"[return] or firebutton selects."
  48. 394 printspc(11)"press 'q' to quit"
  49. 400 :
  50. 410 se=1
  51. 420 gosub1000
  52. 430 gosub2000
  53. 440 iffl=0then420
  54. 442 iffl=-1then10000
  55. 450 :
  56. 500 :
  57. 510 ifse=ns+1then3000
  58. 520 s%=3
  59. 530 ifs%=3thenloadb$(se),8,1
  60. 540 :
  61. 550 gosub4000
  62. 560 gosub5000
  63. 570 goto300
  64. 580 :
  65. 1000 :
  66. 1010 print""
  67. 1020 forx=1tons/2
  68. 1022 ifx=sethenprint"[159]";
  69. 1030 printa$(x)spc(24-len(a$(x)));"[146]";
  70. 1031 ifx+ns/2=sethenprint"[159]";
  71. 1032 printa$(x+ns/2)"[146]"
  72. 1040 nextx:print"":ifse=ns+1thenprint"[154]";
  73. 1050 :
  74. 1052 ag$="play all"+str$(ns)+" tunes."
  75. 1055 printspc(10)ag$"[146]"
  76. 1060 return
  77. 2000 :
  78. 2010 ifpeek(198)=0andpeek(56320)=127then2010
  79. 2020 geta$:j=peek(56320)
  80. 2022 fl=0:pa=0
  81. 2030 ifa$=""orj=125thense=se+1
  82. 2032 ifa$="[145]"orj=126thense=se-1
  83. 2034 ifa$=""orj=119thense=se+(ns/2)
  84. 2036 ifa$="[157]"orj=123thense=se-(ns/2)
  85. 2040 ifa$=chr$(13)orj=111thenfl=1:goto2100
  86. 2050 ifa$="q"ora$="[209]"thenfl=-1:goto2100
  87. 2060 ifse<1thense=1
  88. 2065 ifse>ns+1thense=ns+1
  89. 2070 :
  90. 2100 return
  91. 3000 :
  92. 3010 se=1:pa=1
  93. 3020 gosub1000
  94. 3030 s%=4:loadb$(se),8,1
  95. 3040 gosub4000
  96. 3050 gosub5000:ifqu=2then3080
  97. 3060 se=se+1:ifse=ns+1then3080
  98. 3070 goto3020
  99. 3080 goto300
  100. 3090 :
  101. 4000 :
  102. 4010 print"                                    [145]"
  103. 4020 ag$="now playing -- "+a$(se)
  104. 4030 printspc(20-len(ag$)/2)ag$
  105. 4040 ifpa=1thenprint"      press [space] for next song"
  106. 4042 print"      press [q] to return to menu"
  107. 4045 sys52222,40960
  108. 4050 return
  109. 5000 :
  110. 5010 ifpeek(198)=0andpeek(788)<>49then5010
  111. 5020 sys52225
  112. 5030 geta$:qu=1
  113. 5040 ifa$="q"ora$="[209]"thenqu=2
  114. 5050 return
  115. 10000 print"[147]"
  116. 10010 print"  are you sure you want to quit [y/n]?"
  117. 10020 poke198,0:wait198,1:geta$
  118. 10030 ifa$="y"ora$="[217]"then60000
  119. 10040 ifa$="n"ora$="[206]"then300
  120. 10050 goto10020
  121. 10060 :
  122. 11000 :
  123. 11010 :
  124. 11020 data arkansas traveler,m.arkansas.trav
  125. 11030 data double eagle,m.double.eagle
  126. 11040 data rocky top,m.rocky.top
  127. 11050 data cripple creek,m.cripple.creek
  128. 11060 data old virginny,m.old.virginny
  129. 11070 data cumberland gap,m.cumberland.gap
  130. 11100 data liza jane,m.liza.jane
  131. 11110 data old dan tucker,m.old.dan.tucker
  132. 11999 :
  133. 60000 :
  134. 60010 poke808,237
  135. 60020 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  136. 60030 ifer<>63thenprint"[147]":end
  137. 60040 load"hello connect",8
  138.